home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / cenvid / graphics.lib < prev    next >
Encoding:
Text File  |  1995-09-13  |  789 b   |  46 lines
  1. // GRAPHICS.LIB - Simple Cmm DOS routines to run VGA in 200x320
  2. // ver.1          color mode, set palettes, and write pixels.
  3. //                See MANDLBRT.CMM for an example
  4.  
  5.  
  6. // put vga into video mode hex13 (200x320)
  7. StartVGA()
  8. {
  9.     regs.ax = 0x13;
  10.     interrupt(0x10,regs);
  11. }
  12.  
  13. // put vga back into text mode
  14. CloseVGA()
  15. {
  16.     regs.ax= 0x3;
  17.     interrupt(0x10,regs);
  18. }
  19.  
  20. // place pixel of specified palette color and column,row
  21. PutPixel(x,y,c)
  22. {
  23.     poke(Address(0xA000,x+y*320),c);
  24. }
  25.  
  26. // set palette color
  27. SetPalette(n, r, g, b)
  28. {
  29.     outport(0x3c8,n);
  30.     outport(0x3c9,r);
  31.     outport(0x3c9,g);
  32.     outport(0x3c9,b);
  33. }
  34.  
  35. // get palette color
  36. GetPalette(n)
  37. {
  38.     outport(0x3c7,n);
  39.     foo.r = inport(0x3c9);
  40.     foo.g = inport(0x3c9);
  41.     foo.b = inport(0x3c9);
  42.     return foo;
  43. }
  44.  
  45.  
  46.